home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 4 / Tiger_Disk_004_19xx_Tiger-Crew-Disk_de_Side_B.d64 / dir-druck_v2[tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  64 lines
  1. 10 poke788,52:printchr$(8):poke53281,7:a=0:goto140
  2. 15 open10,4,10:print#10:close10:return
  3. 20 open15,c,15:input#15,aa,bb$,cc,dd
  4. 30 ifaa<>0thenprint"              f e h l e r  !           ":goto50
  5. 40 return
  6. 50 print,aa;bb$;cc;dd:ifleft$(bb$,4)="read"thenprint"             [196][201][211][203] [197][201][206][204][197][199][197][206] !"
  7. 60 gosub70:close3:close15:goto390
  8. 70 poke198,0:wait198,1:poke198,0:return
  9. 80 w=peek(768):open1,b:poke768,185:print#1:close1:poke768,w:ifst<>-128theny=0:return
  10. 90 ify=2theny=0:goto280
  11. 100 print"  [194][201][212][212][197] [218][213][197][210][211][212] [196][210][213][195][203][197][210] [197][201][206][211][195][200][193][204][212][197][206] !":gosub70:y=y+1:goto80
  12. 110 w=peek(768):poke768,185:open1,c,15,"i":close1:poke768,w:ifst<>-128theny=0:return
  13. 120 ify=2theny=0:goto340
  14. 130 print"  [194][201][212][212][197] [204][193][213][198][215][197][210][203] ";c;" [197][201][206][211][195][200][193][204][212][197][206] !":gosub70:y=y+1:goto110
  15. 140 print"[144][147]            directory-druck"
  16. 150 print"        fuer cbm-drucker mps 801"
  17. 160 print"        bzw. seikosha    sl-80vc
  18. 170 [153]" (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  19. 180 [153]" peek by     t i g e r - c r e w         peek"
  20. 190 [153]" mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
  21. 195 [153]" improved  nach einer idee von  lukian ":[141]70
  22. 200 [151]53272,23:[153] "load    str$rucker eingeschaltet ?? "
  23. 210 [153]"clr  (vals empfiehlt sich, den str$rucker auf     len(NULL)(NULL)str$val(NULL)(NULL)valstr$ einzustellen !)"
  24. 220 [141]70
  25. 230 [134]m$(150),l$(150),h$(150):[153]"loadstop peekitte waehlen: "
  26. 240 [153]" str$ruck   in chr$rossbuchstaben >chr$<"
  27. 250 [153]" oder    in (NULL)leinbuchstaben >(NULL)<"
  28. 260 [161]i$:[139]i$[179][177]"k"[175]i$[179][177]"(NULL)"[175]i$[179][177]"g"[175]i$[179][177]"chr$"[167]260
  29. 270 [139]i$[178]"k"[176]i$[178]"(NULL)"[167]a[178]7
  30. 280 [153]" str$ruckeradresse (4/5/6)";
  31. 290 [161]c$:[139]c$[179][177]"4"[175]c$[179][177]"5"[175]c$[179][177]"6"[167]290
  32. 300 b[178][197](c$):[153]b:[141]80
  33. 310 [153]" len(NULL)(NULL)str$val(NULL)valstr$    (1)":[153]" oder normal (2)"
  34. 320 [161]w$:[139]w$[179][177]"1"[175]w$[179][177]"2"[167]320
  35. 330 [139]w$[178]"1"[167][159]13,4,13:[152]13
  36. 340 [153]" ascloppy-atndresse (8/9)";
  37. 350 [161]c$:[139]c$[179][177]"8"[175]c$[179][177]"9"[167]350
  38. 360 c[178][197](c$):[153]c
  39. 370 [153]" peekitte str$isk in (NULL)aufwerk";c;"einlegen":[153]" und <(NULL)val(NULL)(NULL)(NULL)(NULL)> druecken !"
  40. 380 [161]c$:[139]c$[179][177][199](13)[167]380
  41. 390 [141]110:[153]"loadstop      peekitte warten !                    "
  42. 400 [153] " str$irectory wird gelesen und gedruckt!":[159]4,b,a
  43. 410 [159]3,c,0,"$":[161]#3,x$,x$:e$[178][199](0):k[178]1:[141]20
  44. 420 [161]#3,x$,x$,l$(k),h$(k):[139]x$[178]""[167]450
  45. 430 [161]#3,a$:[139]a$[179][177]""[167]m$(k)[178]m$(k)[170]a$:[137]430
  46. 440 k[178]k[170]1:[137]420
  47. 450 [160]3:[157]4:mu[178]0:sp[178]6:[139]w$[178]"1"[167]sp[178]2
  48. 451 [129]j[178]1[164]k[171]1
  49. 452 [153][166]sp);256[172][198](h$(j)[170]e$)[170][198](l$(j)[170]e$);m$(j);:mu[178]mu[170]1
  50. 453 [139]w$[178]"1"[167]sp[178]2
  51. 454 [139]w$[178]"2"[167]sp[178]6
  52. 455 [139][201](m$(j),3)[178]"<  "[176][201](m$(j),2)[178]"< "[167]sp[178]sp[171]1
  53. 456 [139]w$[178]"1"[167][139]mu[177]3[167]mu[178]0:sp[178]2:[153]:[137]460
  54. 457 [139]w$[178]"2"[167][139]mu[177]1[167]mu[178]0:sp[178]6:[153]
  55. 460 [130]:[129]j[178]1[164]5:[153]" ":[130]:[152]4:[160]4:[139]w$[178]"1"[167][160]13:[141]15
  56. 470 [151]53281,5:[153]"load stop(NULL)och ein str$ir. drucken ? (j/n)? "
  57. 480 [161]d$:[139]d$[179][177]"j"[175]d$[179][177]"n"[167]480
  58. 490 [139]d$[178]"j"[167]540
  59. 500 [151]53281,2:[153]"loadsys    val (NULL)closestr$closevalclosewait - peekist str$u sicher ?"
  60. 510 [161]d$:[139]d$[179][177]"j"[175]d$[179][177]"n"[167]510
  61. 520 [139]d$[178]"n"[167]540
  62. 530 [153]"load   peekis demnaechst !!!":[129]t[178]1[164]1000:[130]:[158]64738
  63. 540 [151]53281,7:[151]646,0:[156]:[153]"load":[137]230
  64.